home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 135 / 135.d81 / schwuchow prg (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  143 lines
  1. 10 rem generate token list
  2. 20 a=peek(44)*256+peek(43)
  3. 30 i=peek(a+3)*256+peek(a+2)
  4. 40 if i<128 or i>255 then60
  5. 50 poke a+4,i
  6. 60 a=peek(a+1)*256+peek(a)
  7. 70 ifpeek(a)+peek(a+1)<>0then30
  8. 80 end
  9. 128 print
  10. 129 print
  11. 130 print
  12. 131 print
  13. 132 print
  14. 133 print
  15. 134 print
  16. 135 print
  17. 136 print
  18. 137 print
  19. 138 print
  20. 139 print
  21. 140 print
  22. 141 print
  23. 142 print
  24. 143 print
  25. 144 print
  26. 145 print
  27. 146 print
  28. 147 print
  29. 148 print
  30. 149 print
  31. 150 print
  32. 151 print
  33. 152 print
  34. 153 print
  35. 154 print
  36. 155 print
  37. 156 print
  38. 157 print
  39. 158 print
  40. 159 print
  41. 160 print
  42. 161 print
  43. 162 print
  44. 163 print
  45. 164 print
  46. 165 print
  47. 166 print
  48. 167 print
  49. 168 print
  50. 169 print
  51. 170 print
  52. 171 print
  53. 172 print
  54. 173 print
  55. 174 print
  56. 175 print
  57. 176 print
  58. 177 print
  59. 178 print
  60. 180 print
  61. 181 print
  62. 182 print
  63. 183 print
  64. 184 print
  65. 185 print
  66. 186 print
  67. 187 print
  68. 188 print
  69. 189 print
  70. 190 print
  71. 191 print
  72. 192 print
  73. 193 print
  74. 194 print
  75. 195 print
  76. 196 print
  77. 197 print
  78. 198 print
  79. 199 print
  80. 200 print
  81. 201 print
  82. 202 print
  83. 203 print
  84. 204 print
  85. 205 print
  86. 206 print
  87. 207 print
  88. 208 print
  89. 209 print
  90. 210 print
  91. 211 print
  92. 212 print
  93. 213 print
  94. 214 print
  95. 215 print
  96. 216 print
  97. 217 print
  98. 218 print
  99. 219 print
  100. 220 print
  101. 221 print
  102. 222 print
  103. 223 print
  104. 224 print
  105. 225 print
  106. 226 print
  107. 227 print
  108. 228 print
  109. 229 print
  110. 230 print
  111. 231 print
  112. 232 print
  113. 233 print
  114. 234 print
  115. 235 print
  116. 236 print
  117. 237 print
  118. 238 print
  119. 240 print
  120. 241 print
  121. 242 print
  122. 243 print
  123. 244 print
  124. 245 print
  125. 246 print
  126. 247 print
  127. 248 print
  128. 249 print
  129. 250 print
  130. 251 print
  131. 252 print
  132. 253 print
  133. 254 print
  134. 255 print
  135. 256 end
  136. 500 rem modify basic o/s
  137. 510 fori=40960to49151
  138. 520 pokei,peek(i):next
  139. 530 poke 42781,204
  140. 540 poke 42782,176
  141. 550 poke 1,54
  142. 560 end
  143.